VERSION 5.00
Begin VB.Form frmMapAtt 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "The Odyssey Online Classic [Map Attribute]"
   ClientHeight    =   12645
   ClientLeft      =   150
   ClientTop       =   225
   ClientWidth     =   17055
   ControlBox      =   0   'False
   Icon            =   "frmMapAtt.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   12645
   ScaleWidth      =   17055
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox PicAtt28 
      Height          =   1815
      Left            =   4560
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   128
      Top             =   7920
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar scrlwavelength 
         Height          =   255
         Left            =   1200
         Max             =   255
         TabIndex        =   139
         Top             =   600
         Width           =   2415
      End
      Begin VB.HScrollBar scrlwavesize 
         Height          =   255
         Left            =   1200
         Max             =   255
         TabIndex        =   135
         Top             =   120
         Width           =   2415
      End
      Begin VB.CheckBox WFG2 
         Caption         =   "FG2"
         Height          =   195
         Left            =   2280
         TabIndex        =   134
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CheckBox WFG 
         Caption         =   "FG"
         Height          =   195
         Left            =   2280
         TabIndex        =   133
         Top             =   1200
         Width           =   1095
      End
      Begin VB.CheckBox WGround2 
         Caption         =   "Ground 2"
         Height          =   195
         Left            =   360
         TabIndex        =   132
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CheckBox WGround 
         Caption         =   "Ground"
         Height          =   195
         Left            =   360
         TabIndex        =   131
         Top             =   1200
         Width           =   1095
      End
      Begin VB.CheckBox WBG2 
         Caption         =   "BG2"
         Height          =   195
         Left            =   1440
         TabIndex        =   130
         Top             =   1440
         Width           =   735
      End
      Begin VB.CheckBox WBG 
         Caption         =   "BG"
         Height          =   195
         Left            =   1440
         TabIndex        =   129
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label Label22 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   140
         Top             =   600
         Width           =   375
      End
      Begin VB.Label Label21 
         Caption         =   "Wave Length"
         Height          =   255
         Left            =   120
         TabIndex        =   138
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label20 
         Caption         =   "Wave Size"
         Height          =   255
         Left            =   120
         TabIndex        =   137
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label18 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   136
         Top             =   120
         Width           =   375
      End
   End
   Begin VB.PictureBox PicAtt27 
      Height          =   1815
      Left            =   4560
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   115
      Top             =   9720
      Visible         =   0   'False
      Width           =   4095
      Begin VB.CheckBox RBG 
         Caption         =   "BG"
         Height          =   195
         Left            =   1440
         TabIndex        =   127
         Top             =   720
         Width           =   735
      End
      Begin VB.CheckBox RBG2 
         Caption         =   "BG2"
         Height          =   195
         Left            =   1440
         TabIndex        =   126
         Top             =   960
         Width           =   735
      End
      Begin VB.CheckBox RGround 
         Caption         =   "Ground"
         Height          =   195
         Left            =   360
         TabIndex        =   125
         Top             =   720
         Width           =   1095
      End
      Begin VB.CheckBox RGround2 
         Caption         =   "Ground 2"
         Height          =   195
         Left            =   360
         TabIndex        =   124
         Top             =   960
         Width           =   1095
      End
      Begin VB.CheckBox RFG 
         Caption         =   "FG"
         Height          =   195
         Left            =   2280
         TabIndex        =   123
         Top             =   720
         Width           =   1095
      End
      Begin VB.CheckBox RFG2 
         Caption         =   "FG2"
         Height          =   195
         Left            =   2280
         TabIndex        =   122
         Top             =   960
         Width           =   1095
      End
      Begin VB.HScrollBar scrlrot 
         Height          =   255
         Left            =   1200
         Max             =   3
         TabIndex        =   116
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label17 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   118
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label7 
         Caption         =   "Rotation:"
         Height          =   255
         Left            =   120
         TabIndex        =   117
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.PictureBox picAtt25 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   109
      Top             =   7800
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclCutOff 
         Height          =   255
         Left            =   1200
         Max             =   32
         TabIndex        =   112
         Top             =   240
         Width           =   2415
      End
      Begin VB.CheckBox chkAffectPlayers 
         Caption         =   "Affect Players"
         Height          =   195
         Left            =   240
         TabIndex        =   111
         Top             =   720
         Width           =   1575
      End
      Begin VB.CheckBox chkAffectMonsters 
         Caption         =   "Affect Monsters"
         Height          =   195
         Left            =   240
         TabIndex        =   110
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label Label8 
         Caption         =   "Cut Off"
         Height          =   255
         Left            =   120
         TabIndex        =   114
         Top             =   240
         Width           =   975
      End
      Begin VB.Label lblCutoff 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   113
         Top             =   240
         Width           =   375
      End
   End
   Begin VB.PictureBox picAtt26 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   98
      Top             =   9720
      Visible         =   0   'False
      Width           =   4095
      Begin VB.CheckBox chkShiftFG2 
         Caption         =   "FG2"
         Height          =   195
         Left            =   2160
         TabIndex        =   120
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CheckBox chkShiftFG 
         Caption         =   "FG"
         Height          =   195
         Left            =   2160
         TabIndex        =   119
         Top             =   1200
         Width           =   1095
      End
      Begin VB.CheckBox chkShiftGround2 
         Caption         =   "Ground 2"
         Height          =   195
         Left            =   120
         TabIndex        =   104
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CheckBox chkShiftGround 
         Caption         =   "Ground"
         Height          =   195
         Left            =   120
         TabIndex        =   103
         Top             =   1200
         Width           =   1095
      End
      Begin VB.HScrollBar sclShiftX 
         Height          =   255
         Left            =   360
         Max             =   256
         TabIndex        =   102
         Top             =   240
         Value           =   128
         Width           =   3255
      End
      Begin VB.HScrollBar sclShiftY 
         Height          =   255
         Left            =   360
         Max             =   256
         TabIndex        =   101
         Top             =   600
         Value           =   128
         Width           =   3255
      End
      Begin VB.CheckBox chkShiftBG2 
         Caption         =   "BG2"
         Height          =   195
         Left            =   1200
         TabIndex        =   100
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CheckBox chkShiftBG 
         Caption         =   "BG"
         Height          =   195
         Left            =   1200
         TabIndex        =   99
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Label lblShiftX 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   108
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label13 
         Caption         =   "X"
         Height          =   255
         Left            =   120
         TabIndex        =   107
         Top             =   240
         Width           =   975
      End
      Begin VB.Label lblShiftY 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   106
         Top             =   600
         Width           =   375
      End
      Begin VB.Label Label16 
         Caption         =   "Y"
         Height          =   255
         Left            =   120
         TabIndex        =   105
         Top             =   600
         Width           =   975
      End
   End
   Begin VB.PictureBox picAtt19 
      Height          =   1815
      Left            =   12840
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   90
      Top             =   10080
      Visible         =   0   'False
      Width           =   4095
      Begin VB.CheckBox chkWall 
         Caption         =   "Wall"
         Height          =   375
         Left            =   120
         TabIndex        =   93
         Top             =   960
         Width           =   735
      End
      Begin VB.HScrollBar sclRadius 
         Height          =   255
         Left            =   960
         Max             =   255
         Min             =   1
         TabIndex        =   92
         Top             =   240
         Value           =   100
         Width           =   2415
      End
      Begin VB.HScrollBar sclIntensity 
         Height          =   255
         Left            =   960
         Max             =   255
         TabIndex        =   91
         Top             =   600
         Width           =   2415
      End
      Begin VB.Label cptIntensity 
         Caption         =   "Intensity:"
         Height          =   255
         Left            =   120
         TabIndex        =   97
         Top             =   600
         Width           =   735
      End
      Begin VB.Label cptRadius 
         Caption         =   "Radius"
         Height          =   255
         Left            =   120
         TabIndex        =   96
         Top             =   240
         Width           =   735
      End
      Begin VB.Label lblRadius 
         Alignment       =   2  'Center
         Caption         =   "100"
         Height          =   255
         Left            =   3480
         TabIndex        =   95
         Top             =   240
         Width           =   375
      End
      Begin VB.Label lblIntensity 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3480
         TabIndex        =   94
         Top             =   600
         Width           =   375
      End
   End
   Begin VB.PictureBox picAtt7 
      Height          =   1455
      Left            =   12840
      ScaleHeight     =   1395
      ScaleWidth      =   4035
      TabIndex        =   81
      Top             =   3240
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt7Obj 
         Height          =   255
         Left            =   720
         Max             =   1000
         Min             =   1
         TabIndex        =   85
         Top             =   120
         Value           =   1
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt7Val 
         Height          =   255
         Left            =   720
         Max             =   32000
         TabIndex        =   84
         Top             =   480
         Width           =   2415
      End
      Begin VB.TextBox lblAtt7Obj 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   3240
         TabIndex        =   83
         Text            =   "0"
         Top             =   120
         Width           =   735
      End
      Begin VB.TextBox lblAtt7Val 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   3240
         TabIndex        =   82
         Text            =   "0"
         Top             =   480
         Width           =   735
      End
      Begin VB.Label lblName 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   720
         TabIndex        =   89
         Top             =   840
         Width           =   3015
      End
      Begin VB.Label lblObjName 
         Caption         =   "Name:"
         Height          =   255
         Left            =   120
         TabIndex        =   88
         Top             =   840
         Width           =   495
      End
      Begin VB.Label lblObj 
         Caption         =   "Object:"
         Height          =   255
         Left            =   120
         TabIndex        =   87
         Top             =   120
         Width           =   615
      End
      Begin VB.Label lblValue 
         Caption         =   "Value"
         Height          =   255
         Left            =   120
         TabIndex        =   86
         Top             =   480
         Width           =   615
      End
   End
   Begin VB.PictureBox picAtt20 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   66
      Top             =   120
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt20Y 
         Height          =   255
         Left            =   960
         Max             =   32
         TabIndex        =   75
         Top             =   960
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt20X 
         Height          =   255
         Left            =   960
         Max             =   32
         TabIndex        =   74
         Top             =   600
         Width           =   2415
      End
      Begin VB.CheckBox chkAtt20Wall 
         Caption         =   "Wall"
         Height          =   375
         Left            =   960
         TabIndex        =   73
         Top             =   1320
         Width           =   735
      End
      Begin VB.CheckBox chkAtt20Outdoor 
         Caption         =   "Outdoor"
         Height          =   375
         Left            =   1680
         TabIndex        =   72
         Top             =   1320
         Width           =   1095
      End
      Begin VB.CheckBox chkAtt20Indoor 
         Caption         =   "Indoor"
         Height          =   375
         Left            =   2640
         TabIndex        =   71
         Top             =   1320
         Width           =   1095
      End
      Begin VB.CheckBox chkAtt20Direction 
         Caption         =   "Up"
         Height          =   375
         Index           =   0
         Left            =   1320
         TabIndex        =   70
         Top             =   120
         Width           =   735
      End
      Begin VB.CheckBox chkAtt20Direction 
         Caption         =   "Down"
         Height          =   375
         Index           =   1
         Left            =   1920
         TabIndex        =   69
         Top             =   120
         Width           =   735
      End
      Begin VB.CheckBox chkAtt20Direction 
         Caption         =   "Left"
         Height          =   375
         Index           =   2
         Left            =   2640
         TabIndex        =   68
         Top             =   120
         Width           =   735
      End
      Begin VB.CheckBox chkAtt20Direction 
         Caption         =   "Right"
         Height          =   375
         Index           =   3
         Left            =   3240
         TabIndex        =   67
         Top             =   120
         Width           =   735
      End
      Begin VB.Label cptAtt20Y 
         Alignment       =   1  'Right Justify
         Caption         =   "Y:"
         Height          =   255
         Left            =   120
         TabIndex        =   80
         Top             =   960
         Width           =   615
      End
      Begin VB.Label lblAtt20Y 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3480
         TabIndex        =   79
         Top             =   960
         Width           =   375
      End
      Begin VB.Label lblAtt20X 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3480
         TabIndex        =   78
         Top             =   600
         Width           =   375
      End
      Begin VB.Label cptAtt20X 
         Alignment       =   1  'Right Justify
         Caption         =   "X:"
         Height          =   255
         Left            =   120
         TabIndex        =   77
         Top             =   600
         Width           =   615
      End
      Begin VB.Label Label4 
         Alignment       =   1  'Right Justify
         Caption         =   "Split Direction:"
         Height          =   255
         Left            =   120
         TabIndex        =   76
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.PictureBox picAtt23 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   59
      Top             =   3960
      Visible         =   0   'False
      Width           =   4095
      Begin VB.CheckBox chkAtt23 
         Caption         =   "Background"
         Height          =   255
         Index           =   0
         Left            =   2040
         TabIndex        =   65
         Top             =   240
         Width           =   1215
      End
      Begin VB.CheckBox chkAtt23 
         Caption         =   "Background"
         Height          =   255
         Index           =   1
         Left            =   600
         TabIndex        =   64
         Top             =   240
         Width           =   1215
      End
      Begin VB.CheckBox chkAtt23 
         Caption         =   "Background"
         Height          =   255
         Index           =   2
         Left            =   600
         TabIndex        =   63
         Top             =   720
         Width           =   1215
      End
      Begin VB.CheckBox chkAtt23 
         Caption         =   "Background"
         Height          =   255
         Index           =   3
         Left            =   2040
         TabIndex        =   62
         Top             =   720
         Width           =   1215
      End
      Begin VB.CheckBox chkAtt23 
         Caption         =   "Background checked boxes become invisible"
         Height          =   195
         Index           =   4
         Left            =   120
         TabIndex        =   61
         Top             =   1200
         Width           =   3855
      End
      Begin VB.CheckBox chkAtt23 
         Caption         =   "unchecked checked boxes become invisible"
         Height          =   195
         Index           =   5
         Left            =   120
         TabIndex        =   60
         Top             =   1440
         Width           =   3855
      End
      Begin VB.Line Line1 
         X1              =   1920
         X2              =   1920
         Y1              =   120
         Y2              =   1080
      End
      Begin VB.Line Line2 
         X1              =   480
         X2              =   3360
         Y1              =   600
         Y2              =   600
      End
      Begin VB.Line Line3 
         X1              =   480
         X2              =   3360
         Y1              =   120
         Y2              =   120
      End
      Begin VB.Line Line4 
         X1              =   480
         X2              =   3360
         Y1              =   1080
         Y2              =   1080
      End
      Begin VB.Line Line5 
         X1              =   480
         X2              =   480
         Y1              =   120
         Y2              =   1080
      End
      Begin VB.Line Line6 
         X1              =   3360
         X2              =   3360
         Y1              =   120
         Y2              =   1080
      End
   End
   Begin VB.PictureBox picAtt2 
      Height          =   1455
      Left            =   12840
      ScaleHeight     =   1395
      ScaleWidth      =   4035
      TabIndex        =   49
      Top             =   120
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt2Map 
         Height          =   255
         LargeChange     =   25
         Left            =   720
         Max             =   2000
         Min             =   1
         TabIndex        =   52
         Top             =   120
         Value           =   1
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt2X 
         Height          =   255
         Left            =   720
         Max             =   11
         TabIndex        =   51
         Top             =   480
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt2Y 
         Height          =   255
         Left            =   720
         Max             =   11
         TabIndex        =   50
         Top             =   840
         Width           =   2415
      End
      Begin VB.Label Label1 
         Caption         =   "Map:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   58
         Top             =   120
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "X:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   57
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "Y:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   56
         Top             =   840
         Width           =   495
      End
      Begin VB.Label lblAtt2Map 
         Alignment       =   2  'Center
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   55
         Top             =   120
         Width           =   735
      End
      Begin VB.Label lblAtt2X 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   54
         Top             =   480
         Width           =   735
      End
      Begin VB.Label lblAtt2Y 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   53
         Top             =   840
         Width           =   735
      End
   End
   Begin VB.PictureBox picAtt8 
      Height          =   1455
      Left            =   12840
      ScaleHeight     =   1395
      ScaleWidth      =   4035
      TabIndex        =   39
      Top             =   4800
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt8Y 
         Height          =   255
         Left            =   720
         Max             =   11
         TabIndex        =   42
         Top             =   480
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt8X 
         Height          =   255
         Left            =   720
         Max             =   11
         TabIndex        =   41
         Top             =   120
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt8Hall 
         Height          =   255
         LargeChange     =   10
         Left            =   720
         Max             =   255
         TabIndex        =   40
         Top             =   840
         Width           =   2415
      End
      Begin VB.Label Label5 
         Caption         =   "Y:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   48
         Top             =   480
         Width           =   495
      End
      Begin VB.Label lblAtt8Y 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   47
         Top             =   480
         Width           =   735
      End
      Begin VB.Label Label10 
         Caption         =   "X:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   46
         Top             =   120
         Width           =   495
      End
      Begin VB.Label lblAtt8X 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   45
         Top             =   120
         Width           =   735
      End
      Begin VB.Label Label12 
         Caption         =   "Hall:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   44
         Top             =   840
         Width           =   495
      End
      Begin VB.Label lblAtt8Hall 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3240
         TabIndex        =   43
         Top             =   840
         Width           =   735
      End
   End
   Begin VB.PictureBox picAtt9 
      Height          =   1455
      Left            =   12840
      ScaleHeight     =   1395
      ScaleWidth      =   4035
      TabIndex        =   35
      Top             =   6360
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt9Damage 
         Height          =   255
         Left            =   1080
         Max             =   50
         Min             =   1
         TabIndex        =   36
         Top             =   120
         Value           =   1
         Width           =   2295
      End
      Begin VB.Label lblAtt9Damage 
         Alignment       =   2  'Center
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3480
         TabIndex        =   38
         Top             =   120
         Width           =   495
      End
      Begin VB.Label Label14 
         Caption         =   "Damage:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   37
         Top             =   120
         Width           =   855
      End
   End
   Begin VB.PictureBox picAtt3 
      Height          =   1455
      Left            =   12840
      ScaleHeight     =   1395
      ScaleWidth      =   4035
      TabIndex        =   30
      Top             =   1680
      Visible         =   0   'False
      Width           =   4095
      Begin VB.Frame lockpickcover 
         BorderStyle     =   0  'None
         Height          =   855
         Left            =   120
         TabIndex        =   144
         Top             =   480
         Width           =   3855
      End
      Begin VB.HScrollBar pickdiff 
         Height          =   255
         Left            =   840
         Max             =   5
         Min             =   1
         TabIndex        =   142
         Top             =   720
         Value           =   1
         Width           =   2415
      End
      Begin VB.HScrollBar sclAtt3Key 
         Height          =   255
         Left            =   840
         Max             =   510
         Min             =   1
         TabIndex        =   32
         Top             =   120
         Value           =   1
         Width           =   2415
      End
      Begin VB.TextBox lblAtt3Key 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   3360
         TabIndex        =   31
         Text            =   "1"
         Top             =   120
         Width           =   615
      End
      Begin VB.Label picklabel 
         Caption         =   "Unpickable"
         Height          =   255
         Left            =   1560
         TabIndex        =   143
         Top             =   1080
         Width           =   1095
      End
      Begin VB.Label lockpick 
         Caption         =   "Pick Difficulty:"
         Height          =   255
         Left            =   240
         TabIndex        =   141
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label lblObject 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   840
         TabIndex        =   34
         Top             =   480
         Width           =   2415
      End
      Begin VB.Label lblKey 
         Caption         =   "Key:"
         Height          =   255
         Left            =   240
         TabIndex        =   33
         Top             =   120
         Width           =   495
      End
   End
   Begin VB.PictureBox picAtt17 
      Height          =   2055
      Left            =   12840
      ScaleHeight     =   1995
      ScaleWidth      =   4035
      TabIndex        =   16
      Top             =   7920
      Visible         =   0   'False
      Width           =   4095
      Begin VB.CheckBox chkDirections 
         Caption         =   "From Above"
         Height          =   255
         Index           =   0
         Left            =   1440
         TabIndex        =   28
         Top             =   120
         Width           =   1695
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "To Above"
         Height          =   255
         Index           =   1
         Left            =   1440
         TabIndex        =   27
         Top             =   360
         Width           =   1695
      End
      Begin VB.CheckBox chkKeep 
         Caption         =   "Keep"
         Height          =   255
         Left            =   2880
         TabIndex        =   26
         Top             =   1680
         Width           =   1215
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "To Left"
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   25
         Top             =   480
         Width           =   975
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "From Left"
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   24
         Top             =   720
         Width           =   1095
      End
      Begin VB.CheckBox chkNoMonster 
         Caption         =   "No Monster"
         Height          =   255
         Left            =   2880
         TabIndex        =   23
         Top             =   1440
         Width           =   1215
      End
      Begin VB.CheckBox chkAllowProjectilesFrom 
         Caption         =   "Allow Projectiles From"
         Height          =   255
         Left            =   120
         TabIndex        =   22
         Top             =   1440
         Width           =   2055
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "To Below"
         Height          =   255
         Index           =   2
         Left            =   1440
         TabIndex        =   21
         Top             =   840
         Width           =   1695
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "From Below"
         Height          =   255
         Index           =   3
         Left            =   1440
         TabIndex        =   20
         Top             =   1080
         Width           =   1695
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "From Right"
         Height          =   255
         Index           =   6
         Left            =   2880
         TabIndex        =   19
         Top             =   480
         Width           =   1695
      End
      Begin VB.CheckBox chkDirections 
         Caption         =   "To Right"
         Height          =   255
         Index           =   7
         Left            =   2880
         TabIndex        =   18
         Top             =   720
         Width           =   1695
      End
      Begin VB.CheckBox chkAllowProjectilesTo 
         Caption         =   "Allow Projectiles To"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   1680
         Width           =   2055
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   840
         TabIndex        =   29
         Top             =   480
         Width           =   2415
      End
   End
   Begin VB.PictureBox picatt24 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   6
      Top             =   5880
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclRun 
         Height          =   255
         Left            =   1200
         Max             =   31
         TabIndex        =   9
         Top             =   600
         Value           =   16
         Width           =   2415
      End
      Begin VB.HScrollBar sclWalk 
         Height          =   255
         Left            =   1200
         Max             =   31
         TabIndex        =   8
         Top             =   240
         Value           =   8
         Width           =   2415
      End
      Begin VB.HScrollBar sclSpeedDuration 
         Height          =   255
         Left            =   1200
         Max             =   255
         TabIndex        =   7
         Top             =   960
         Width           =   2415
      End
      Begin VB.Label lblRun 
         Alignment       =   2  'Center
         Caption         =   "16"
         Height          =   255
         Left            =   3600
         TabIndex        =   15
         Top             =   600
         Width           =   375
      End
      Begin VB.Label lblWalk 
         Alignment       =   2  'Center
         Caption         =   "8"
         Height          =   255
         Left            =   3600
         TabIndex        =   14
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label9 
         Caption         =   "Walk Speed"
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label11 
         Caption         =   "Run Speed"
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   600
         Width           =   855
      End
      Begin VB.Label lblSpeedDuration 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   11
         Top             =   960
         Width           =   375
      End
      Begin VB.Label Label15 
         Caption         =   "Duration"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   960
         Width           =   975
      End
   End
   Begin VB.CommandButton btnOk 
      Caption         =   "Ok"
      Height          =   495
      Left            =   2520
      TabIndex        =   5
      Top             =   2520
      Width           =   1455
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   495
      Left            =   720
      TabIndex        =   4
      Top             =   2520
      Width           =   1455
   End
   Begin VB.PictureBox picAtt21 
      Height          =   1815
      Left            =   8640
      ScaleHeight     =   1755
      ScaleWidth      =   4035
      TabIndex        =   0
      Top             =   2040
      Visible         =   0   'False
      Width           =   4095
      Begin VB.HScrollBar sclAtt21Health 
         Height          =   255
         Left            =   1200
         TabIndex        =   1
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label19 
         Caption         =   "Health"
         Height          =   255
         Left            =   480
         TabIndex        =   3
         Top             =   240
         Width           =   615
      End
      Begin VB.Label lblHealth 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   3600
         TabIndex        =   2
         Top             =   240
         Width           =   495
      End
   End
   Begin VB.Label lblAtt 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   121
      Top             =   0
      Width           =   4095
   End
End
Attribute VB_Name = "frmMapAtt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnCancel_Click()
    Unload Me
End Sub

Private Sub btnOk_Click()
    Dim A As Long
    CurAtt = NewAtt
    Select Case CurAtt
    Case 2    'Warp
        CurAttData(0) = Int(sclAtt2Map / 256)
        CurAttData(1) = sclAtt2Map Mod 256
        CurAttData(2) = sclAtt2X
        CurAttData(3) = sclAtt2Y
    Case 3    'Key
        CurAttData(0) = sclAtt3Key Mod 256
        CurAttData(1) = Int(sclAtt3Key / 256)
        CurAttData(2) = pickdiff.value
        CurAttData(3) = 0
    Case 7    'Object
        CurAttData(0) = sclAtt7Obj Mod 256
        CurAttData(1) = Int(sclAtt7Obj / 256)
        CurAttData(2) = Int(sclAtt7Val / 256)
        CurAttData(3) = sclAtt7Val Mod 256
    Case 8    'Touch Plate
        CurAttData(0) = sclAtt8X
        CurAttData(1) = sclAtt8Y
        CurAttData(2) = sclAtt8Hall
        CurAttData(3) = 0
    Case 9    'Damage
        CurAttData(0) = sclAtt9Damage
        CurAttData(1) = 0
        CurAttData(2) = 0
        CurAttData(3) = 0
    Case 17    'Directional Wall
        CurAttData(0) = 0
        For A = 0 To 7
            If chkDirections(A).value = 1 Then SetBit CurAttData(0), CByte(A)
        Next A
        CurAttData(1) = chkKeep
        CurAttData(2) = chkNoMonster
        CurAttData(3) = chkAllowProjectilesFrom + chkAllowProjectilesTo * 2
    Case 19    'Light Tile
        CurAttData(0) = sclRadius
        CurAttData(1) = sclIntensity
        If chkWall = 1 Then
            SetBit CurAttData(2), 0
        Else
            ClearBit CurAttData(2), 0
        End If
        ClearBit CurAttData(2), 1
        ClearBit CurAttData(2), 2
        ClearBit CurAttData(2), 3
        ClearBit CurAttData(2), 4
        ClearBit CurAttData(2), 5
        ClearBit CurAttData(2), 6
        ClearBit CurAttData(2), 7
    Case 20    'Dampening Tile
        If chkAtt20Direction(0).value = 1 Then
            SetBit CurAttData(0), 0
        Else
            ClearBit CurAttData(0), 0
        End If
        If chkAtt20Direction(1).value = 1 Then
            SetBit CurAttData(0), 1
        Else
            ClearBit CurAttData(0), 1
        End If
        If chkAtt20Direction(2).value = 1 Then
            SetBit CurAttData(0), 2
        Else
            ClearBit CurAttData(0), 2
        End If
        If chkAtt20Direction(3).value = 1 Then
            SetBit CurAttData(0), 3
        Else
            ClearBit CurAttData(0), 3
        End If
        ClearBit CurAttData(0), 4
        ClearBit CurAttData(0), 5
        ClearBit CurAttData(0), 6
        ClearBit CurAttData(0), 7
        CurAttData(1) = sclAtt20X.value
        CurAttData(2) = sclAtt20Y.value
        If chkAtt20Wall = 1 Then
            SetBit CurAttData(3), 0
        Else
            ClearBit CurAttData(3), 0
        End If
        If chkAtt20Outdoor = 1 Then
            SetBit CurAttData(3), 1
        Else
            ClearBit CurAttData(3), 1
        End If
        If chkAtt20Indoor = 1 Then
            SetBit CurAttData(3), 2
        Else
            ClearBit CurAttData(3), 2
        End If
        ClearBit CurAttData(3), 3
        ClearBit CurAttData(3), 4
        ClearBit CurAttData(3), 5
        ClearBit CurAttData(3), 6
        ClearBit CurAttData(3), 7
    Case 21 'Attackable wall
        CurAttData(0) = Int(sclAtt21Health / 256)
        CurAttData(1) = sclAtt21Health Mod 256
        CurAttData(2) = Int(sclAtt21Health / 256)
        CurAttData(3) = sclAtt21Health Mod 256
    Case 23 'half tile
        CurAttData(0) = chkAtt23(0) + chkAtt23(1) * 2 + chkAtt23(2) * 4 + chkAtt23(3) * 8 + chkAtt23(4) * 16 + chkAtt23(5) * 32
        CurAttData(1) = 0
        CurAttData(2) = 0
        CurAttData(3) = 0
    Case 24 'speed tile
        CurAttData(0) = sclWalk
        CurAttData(1) = sclRun
        CurAttData(2) = sclSpeedDuration
        CurAttData(3) = 0
    Case 25 'sprite half tile
        CurAttData(0) = sclCutOff
        CurAttData(1) = chkAffectPlayers + chkAffectMonsters * 2
        CurAttData(2) = 0
        CurAttData(3) = 0
    Case 26 'shift tile
        CurAttData(0) = sclShiftX
        CurAttData(1) = sclShiftY
        CurAttData(2) = chkShiftGround + chkShiftGround2 * 2 + chkShiftBG * 4 + chkShiftBG2 * 8 + chkShiftFG * 16 + chkShiftFG2 * 32
        CurAttData(3) = 0
    Case 27 'Rotation Tile
        CurAttData(0) = scrlrot.value
        If RGround.value = 1 Then: SetBit CurAttData(1), 0: Else: ClearBit CurAttData(1), 0
        If RGround2.value = 1 Then: SetBit CurAttData(1), 1: Else: ClearBit CurAttData(1), 1
        If RBG.value = 1 Then: SetBit CurAttData(1), 2: Else: ClearBit CurAttData(1), 2
        If RBG2.value = 1 Then: SetBit CurAttData(1), 3: Else: ClearBit CurAttData(1), 3
        If RFG.value = 1 Then: SetBit CurAttData(1), 4: Else: ClearBit CurAttData(1), 4
        If RFG2.value = 1 Then: SetBit CurAttData(1), 5: Else: ClearBit CurAttData(1), 5
        CurAttData(2) = 0
        CurAttData(3) = 0
    Case 28 'Rotation Tile
        CurAttData(0) = scrlwavesize.value
        If WGround.value = 1 Then: SetBit CurAttData(1), 0: Else: ClearBit CurAttData(1), 0
        If WGround2.value = 1 Then: SetBit CurAttData(1), 1: Else: ClearBit CurAttData(1), 1
        If WBG.value = 1 Then: SetBit CurAttData(1), 2: Else: ClearBit CurAttData(1), 2
        If WBG2.value = 1 Then: SetBit CurAttData(1), 3: Else: ClearBit CurAttData(1), 3
        If WFG.value = 1 Then: SetBit CurAttData(1), 4: Else: ClearBit CurAttData(1), 4
        If WFG2.value = 1 Then: SetBit CurAttData(1), 5: Else: ClearBit CurAttData(1), 5
        CurAttData(2) = scrlwavelength.value
        CurAttData(3) = 0
    End Select
    Unload Me
End Sub

Private Sub Form_Load()
    If ServerDescription = "River Helm" Then
        lockpickcover.Visible = False
    End If
    Me.Width = 4950
    Me.Height = 3825
    picAtt2.Left = 120
    picAtt2.Top = 600
    picAtt3.Left = 120
    picAtt3.Top = 600
    picAtt7.Left = 120
    picAtt7.Top = 600
    picAtt8.Left = 120
    picAtt8.Top = 600
    picAtt9.Left = 120
    picAtt9.Top = 600
    picAtt17.Top = 600
    picAtt17.Left = 120
    picAtt19.Left = 120
    picAtt19.Top = 600
    picAtt20.Top = 600
    picAtt20.Left = 120
    picAtt21.Left = 120
    picAtt21.Top = 600
    picAtt23.Top = 600
    picAtt23.Left = 120
    picatt24.Left = 120
    picatt24.Top = 600
    picAtt25.Top = 600
    picAtt25.Left = 120
    picAtt26.Left = 120
    picAtt26.Top = 600
    PicAtt27.Left = 120
    PicAtt27.Top = 600
    PicAtt28.Left = 120
    PicAtt28.Top = 600

    sclAtt3Key.max = MaxObjects
    sclAtt7Obj.max = MaxObjects
    sclAtt2Map.max = MaxMaps
            
    Dim A As Long
    Select Case NewAtt
    Case 2    'Warp
        lblAtt = "2 - Warp"
        picAtt2.Visible = True
        sclAtt2Map.Enabled = True
        If CurAtt = 2 Then
            sclAtt2Map.value = CurAttData(0) * 256 + CurAttData(1)
            sclAtt2X.value = CurAttData(2)
            sclAtt2Y.value = CurAttData(3)
        End If
    Case 3    'Key
        lblAtt = "3 - Key"
        picAtt3.Visible = True
        If CurAtt = 3 Then
            sclAtt3Key.value = CurAttData(1) * 256 + CurAttData(0)
            pickdiff.value = CurAttData(2)
        End If
    Case 7    'Obj
        lblAtt = "7 - Object"
        picAtt7.Visible = True
        If CurAtt = 7 Then
            sclAtt7Obj.value = CurAttData(1) * 256 + CurAttData(0)
            sclAtt7Val.value = CurAttData(2) * 256 + CurAttData(3)
        End If
    Case 8    'Touch Plate
        lblAtt = "8 - Touch Plate"
        picAtt8.Visible = True
        If CurAtt = 8 Then
            sclAtt8X = CurAttData(0)
            sclAtt8Y = CurAttData(1)
            sclAtt8Hall = CurAttData(2)
        End If
    Case 9    'Damage
        lblAtt = "9 - Damage"
        picAtt9.Visible = True
        If CurAtt = 9 Then
            sclAtt9Damage = CurAttData(0)
        End If
    Case 17    'Directional Wall
        lblAtt = "17 - Directional Wall"
        picAtt17.Visible = True
        If CurAtt = 17 Then
            For A = 0 To 7
                If ExamineBit(CurAttData(0), CByte(A)) = True Then chkDirections(A).value = 1
            Next A
            
            If ExamineBit(CurAttData(1), 0) = True Then chkKeep.value = 1
            If ExamineBit(CurAttData(2), 0) = True Then chkNoMonster.value = 1
            If ExamineBit(CurAttData(3), 0) = True Then chkAllowProjectilesFrom.value = 1
            If ExamineBit(CurAttData(3), 1) = True Then chkAllowProjectilesTo.value = 1
        End If
    Case 19    'Light
        lblAtt = "19 - Light"
        picAtt19.Visible = True
        If CurAtt = 19 Then
            sclRadius = CurAttData(0)
            sclIntensity = CurAttData(1)
            If ExamineBit(CurAttData(2), 0) = True Then chkWall.value = 1
        End If
    Case 20    'Light Dampening
        lblAtt = "20 - Light Dampening"
        picAtt20.Visible = True
        If CurAtt = 20 Then
            If ExamineBit(CurAttData(0), 0) = True Then chkAtt20Direction(0).value = 1
            If ExamineBit(CurAttData(0), 1) = True Then chkAtt20Direction(1).value = 1
            If ExamineBit(CurAttData(0), 2) = True Then chkAtt20Direction(2).value = 1
            If ExamineBit(CurAttData(0), 3) = True Then chkAtt20Direction(3).value = 1
            sclAtt20X = CurAttData(1)
            sclAtt20Y = CurAttData(2)
            If ExamineBit(CurAttData(3), 0) = True Then chkAtt20Wall.value = 1
            If ExamineBit(CurAttData(3), 1) = True Then chkAtt20Outdoor.value = 1
            If ExamineBit(CurAttData(3), 2) = True Then chkAtt20Indoor.value = 1
        End If
    Case 21 'Attackable wall
        lblAtt = "21 - Attackable Wall"
        picAtt21.Visible = True
        If CurAtt = 21 Then
            sclAtt21Health.value = CurAttData(2) * 256 + CurAttData(3)
        End If
    Case 23 'half tile
        lblAtt = "23 - Half Tile"
        picAtt23.Visible = True
        If CurAtt = 23 Then
            If (ExamineBit(CurAttData(0), 0)) Then chkAtt23(0).value = 1
            If (ExamineBit(CurAttData(0), 1)) Then chkAtt23(1).value = 1
            If (ExamineBit(CurAttData(0), 2)) Then chkAtt23(2).value = 1
            If (ExamineBit(CurAttData(0), 3)) Then chkAtt23(3).value = 1
            If (ExamineBit(CurAttData(0), 4)) Then chkAtt23(4).value = 1
            If (ExamineBit(CurAttData(0), 5)) Then chkAtt23(5).value = 1
        End If
    Case 24 'Speed Mod
        lblAtt = "24 - Speed Mod"
        picatt24.Visible = True
        If CurAtt = 24 Then
            sclWalk = CurAttData(0)
            sclRun = CurAttData(1)
            sclSpeedDuration = CurAttData(2)
        End If
    Case 25 'sprite half tile
        lblAtt = "25 - Sprite Half Tile"
        picAtt25.Visible = True
        If CurAtt = 25 Then
            sclCutOff = CurAttData(0)
            If (ExamineBit(CurAttData(1), 0)) Then chkAffectPlayers.value = 1
            If (ExamineBit(CurAttData(1), 1)) Then chkAffectMonsters.value = 1
        End If
    Case 26 'shift tile
        lblAtt = "26 - Tile Shift"
        picAtt26.Visible = True
        If CurAtt = 26 Then

            sclShiftX = CurAttData(0)
            sclShiftY = CurAttData(1)

            If (ExamineBit(CurAttData(2), 0)) Then chkShiftGround.value = 1
            If (ExamineBit(CurAttData(2), 1)) Then chkShiftGround2.value = 1
            If (ExamineBit(CurAttData(2), 2)) Then chkShiftBG.value = 1
            If (ExamineBit(CurAttData(2), 3)) Then chkShiftBG2.value = 1
            If (ExamineBit(CurAttData(2), 4)) Then chkShiftFG.value = 1
            If (ExamineBit(CurAttData(2), 5)) Then chkShiftFG2.value = 1
        End If
    Case 27 'Rotate Tile
        If CurAtt = 27 Then
            lblAtt = "27 - Tile Rotate"
            PicAtt27.Visible = True
'            scrlrot.value = CurAttData(0)
            If (ExamineBit(CurAttData(1), 0)) Then RGround.value = 1
            If (ExamineBit(CurAttData(1), 1)) Then RGround2.value = 1
            If (ExamineBit(CurAttData(1), 2)) Then RBG.value = 1
            If (ExamineBit(CurAttData(1), 3)) Then RBG2.value = 1
            If (ExamineBit(CurAttData(1), 4)) Then RFG.value = 1
            If (ExamineBit(CurAttData(1), 5)) Then RFG2.value = 1
        End If
    Case 28 'Water Tile
        lblAtt = "28 - Water"
        PicAtt28.Visible = True
        scrlwavesize.value = CurAttData(0)
        scrlwavelength.value = CurAttData(2)
        If (ExamineBit(CurAttData(1), 0)) Then WGround.value = 1
        If (ExamineBit(CurAttData(1), 1)) Then WGround2.value = 1
        If (ExamineBit(CurAttData(1), 2)) Then WBG.value = 1
        If (ExamineBit(CurAttData(1), 3)) Then WBG2.value = 1
        If (ExamineBit(CurAttData(1), 4)) Then WFG.value = 1
        If (ExamineBit(CurAttData(1), 5)) Then WFG2.value = 1
    End Select
End Sub

Private Sub lblAtt3Key_Change()
    If Val(lblAtt3Key) > 0 And Val(lblAtt3Key) <= MaxObjects Then sclAtt3Key = Val(lblAtt3Key)
End Sub

Private Sub lblAtt7Obj_Change()
    If Val(lblAtt7Obj) > 0 And Val(lblAtt7Obj) <= MaxObjects Then sclAtt7Obj = Val(lblAtt7Obj)
End Sub

Private Sub lblAtt7Val_Change()
    If Val(lblAtt7Val) <= 32000 Then sclAtt7Val = Val(lblAtt7Val)
End Sub

Private Sub pickdiff_Change()
    Select Case pickdiff.value
        Case 1
            picklabel.Caption = "Unpickable"
        Case 2
            picklabel.Caption = "Easy"
        Case 3
            picklabel.Caption = "Medium"
        Case 4
            picklabel.Caption = "Hard"
        Case 5
            picklabel.Caption = "Expert"
    End Select
End Sub

Private Sub sclAtt20X_Change()
    lblAtt20X = sclAtt20X
End Sub

Private Sub sclAtt20Y_Change()
    lblAtt20Y = sclAtt20Y
End Sub

Private Sub sclAtt21Health_Change()
    lblHealth = sclAtt21Health
End Sub

Private Sub sclAtt2Map_Change()
    lblAtt2Map = sclAtt2Map
End Sub

Private Sub sclAtt2Map_Scroll()
    sclAtt2Map_Change
End Sub

Private Sub sclAtt2X_Change()
    lblAtt2X = sclAtt2X
End Sub

Private Sub sclAtt2X_Scroll()
    sclAtt2X_Change
End Sub

Private Sub sclAtt2Y_Change()
    lblAtt2Y = sclAtt2Y
End Sub

Private Sub sclAtt2Y_Scroll()
    sclAtt2Y_Change
End Sub

Private Sub sclAtt3Key_Change()
    lblAtt3Key = sclAtt3Key
    lblObject.Caption = Object(sclAtt3Key).name
End Sub

Private Sub sclAtt3Key_Scroll()
    sclAtt3Key_Change
End Sub

Private Sub sclAtt7Obj_Change()
    lblAtt7Obj = sclAtt7Obj
    lblName.Caption = Object(sclAtt7Obj).name
End Sub

Private Sub sclAtt7Obj_Scroll()
    sclAtt7Obj_Change
End Sub

Private Sub sclAtt7Val_Change()
    lblAtt7Val = sclAtt7Val
End Sub

Private Sub sclAtt7Val_Scroll()
    sclAtt7Val_Change
End Sub

Private Sub sclAtt8Hall_Change()
    lblAtt8Hall = sclAtt8Hall
End Sub

Private Sub sclAtt8Hall_Scroll()
    sclAtt8Hall_Change
End Sub

Private Sub sclAtt8X_Change()
    lblAtt8X = sclAtt8X
End Sub

Private Sub sclAtt8X_Scroll()
    sclAtt8X_Change
End Sub

Private Sub sclAtt8Y_Change()
    lblAtt8Y = sclAtt8Y
End Sub

Private Sub sclAtt8Y_Scroll()
    sclAtt8Y_Change
End Sub

Private Sub sclAtt9Damage_Change()
    lblAtt9Damage = sclAtt9Damage
End Sub

Private Sub sclAtt9Damage_Scroll()
    sclAtt9Damage_Change
End Sub

Private Sub sclCutOff_Change()
    lblCutoff = Str(sclCutOff)
End Sub

Private Sub sclIntensity_Change()
    lblIntensity = Str(sclIntensity)
End Sub

Private Sub sclIntensity_Scroll()
    sclIntensity_Change
End Sub

Private Sub sclRadius_Change()
    lblRadius = Str(sclRadius)
End Sub

Private Sub sclRadius_Scroll()
    sclRadius_Change
End Sub

Private Sub sclRun_Change()
lblRun.Caption = Str(sclRun.value)
End Sub

Private Sub sclShiftX_Change()
    lblShiftX = Str(sclShiftX - 128)
End Sub

Private Sub sclShiftY_Change()
    lblShiftY = Str(sclShiftY - 128)
End Sub

Private Sub sclSpeedDuration_Change()
    lblSpeedDuration = sclSpeedDuration
End Sub

Private Sub sclWalk_Change()
    lblWalk = Str(sclWalk)
End Sub

Private Sub scrlrot_Change()
    Select Case scrlrot.value
        Case 0
            Label17.Caption = "0"
        Case 1
            Label17.Caption = "90"
        Case 2
            Label17.Caption = "180"
        Case 3
            Label17.Caption = "270"
    End Select
End Sub

Private Sub scrlwavelength_Change()
Label22.Caption = scrlwavelength.value
End Sub

Private Sub scrlwavesize_Change()
Label18.Caption = scrlwavesize.value
End Sub
